home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / news / fido / ger / amiprog / 176 < prev    next >
Internet Message Format  |  1996-03-16  |  1KB
  1. From: Sacha_Danesi@p14.f706.n301.z2.fido.sub.org (Sacha Danesi)
  2. Organization: Dosen muessen gesammelt und entsorgt werden...
  3. Path: f706.n301.z2.fidonet.org!not-for-mail
  4. Newsgroups: fido.ger.amiprog
  5. Subject: Re: Problem mit Objects
  6. Message-ID: <MSGID_2=3A301=2F706.14_30708690@fidonet.org>
  7. References: <MSGID_2=3A2490=2F1140=40fidonet_3069a9e5@fidonet.org>
  8. Date: Mon, 02 Oct 1995 18:41:58 +0200
  9.  
  10. In a message of 27 Sep 95 Dieter Hofmann wrote to All:
  11.  
  12.  DH> Hallo Leute
  13.  
  14.  DH> Hab hier ein kleines Problem mit dem binaeren Speichern von Objecten.
  15.  
  16.  DH> Dieser Versuch speichert zwar ein File t:test in der Laenge des Objectes
  17.  DH> aber in dem File steht nur Schrott..
  18.  
  19.  DH> Please help
  20.  
  21.  
  22.  
  23.  DH> /* test fuer binaeres speichern */
  24.  
  25.  DH> OBJECT test
  26.  DH>     name:LONG
  27.  DH>     strasse:LONG
  28.  DH>     telefon:LONG
  29.  DH> ENDOBJECT
  30.  
  31.  DH> PROC main()
  32.  DH>     DEF a:PTR TO test
  33.  DH>     DEF mem,fh
  34.  
  35. Du solltest fuer a einen Speicher reservieren. PTR TO macht das naemlich nicht.
  36. Du schreibst irgendwo im Speicher rum. Das ist das Gefaehrliche an E.
  37.  
  38.  DH>     a.name:='teststring'
  39.  DH>     a.strasse:='hallo'
  40.  DH>     a.telefon:='12345'
  41.  DH>     mem:=New(12)
  42.  DH>     CopyMem(a,mem,12)
  43.  DH>     fh:=Open('t:test',NEWFILE)
  44.  DH>     Write(fh,mem,12)
  45.  DH>     Close(fh)
  46.  DH>     Dispose(mem)
  47.  DH> ENDPROC
  48.  
  49.  DH> Sers und im vorrausch thanx
  50.  
  51.  DH> Dieter
  52.  
  53.  
  54.  DH> PS: ist zwar E aber das prinzip wuerde mir genuegen..
  55.  
  56. Ich liebe E :)
  57.  
  58. RYA   - Sacha
  59.